home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / pslabel.sda / PSLABEL / CBM V3.0 (.txt) next >
Commodore BASIC  |  2009-10-10  |  5KB  |  137 lines
  1. 10 REM  PRINT SHOP LABEL MAKER/CBM V3.0
  2. 11 REM  BY BRIAN HEYBOER  9/27/86
  3. 12 REM  THIS PROGRAM IS PUBLIC DOMAIN.
  4. 13 :
  5. 14 REM  ON 1525 TYPE PRINTERS, A
  6. 15 REM  PERIODIC ADJUSTMENT MUST BE
  7. 16 REM  DONE TO KEEP THE PRINT ON THE
  8. 17 REM  LABEL ROUGHLY CENTERED.  STILL,
  9. 18 REM  SOME CBM PRINTERS DO NOT KEEP
  10. 19 REM  THE PRINT CENTERED WELL.
  11. 20 REM  FOR FINE ADJUSTMENT OF LABEL
  12. 21 REM  SPACING ON A 1525, CHANGE THE
  13. 22 REM  VALUE OF IC IN LINE 120.
  14. 23 REM  A SMALLER IC (BUT ALWAYS >=0)
  15. 24 REM  DOES A MORE FREQUENT SPACE
  16. 25 REM  ADJUSTMENT AND MAKES LABELS
  17. 26 REM  CLOSER TOGETHER.  A LARGER IC
  18. 27 REM  MAKES THEM WIDER SPACED.
  19. 28 REM  YOU MUST PRINT SEVERAL LABELS
  20. 29 REM  TO SEE THE EFFECT.
  21. 30 REM  1526 TYPE PRINTERS KEEP LABELS
  22. 31 REM  CENTERED BETTER, BUT YOU MAY
  23. 32 REM  ADJUST THIS SPACING BY CHANGING
  24. 33 REM  SC IN LINE 120.
  25. 34 :
  26. 100 IFLC THEN SYS 828:GOTO540
  27. 110 POKE55,0:POKE56,156:CLR
  28. 120 POKE53280,1:POKE53281,1:IC=3:FC=IC:SC=48:REM DEFALT IC=3  SC=48
  29. 130 CC$=CHR$(254):SR$=CHR$(141):CD$=""
  30. 140 PRINT"[149][147][208]RINT [211]HOP [199]RAPHICS [204]ABEL [205]AKER/[195][194][205] [214]3.0
  31. 150 [153]"  PEEKY PEEKRIAN LEFT$EYBOER - (null)-(null)INK RIGHT$STR$: (null)(null)(null)ASCVAL(null)
  32. 160 PRINT"[144][212]HIS PROGRAM PRINTS STANDARD 1 INCH
  33. 170 [153]"MAILING LABELS USING (null)RINT (null)HOP (null)IDE PEEK
  34. 180 PRINT"GRAPHICS AND TEXT OF YOUR CHOICE ON A
  35. 190 [153]"LENPEEK(null) 1525, 1526, OR COMPATABLE PRINTER.
  36. 200 PRINT"[212]HIS PROGRAM IS PUBLIC DOMAIN.
  37. 210 [153]"(null)RINT (null)HOP IS A TRADEMARK OF PEEKRODERBUND.
  38. 220 PRINT"[195][194][205] IS A TRADEMARK OF [195]OMMODORE.
  39. 230 [153]"  LENHOOSE (null)RINTER TYPE:
  40. 240 PRINT"[144] 1. 1525/[205][208][211]-801/[205][208][211]-803
  41. 250 [153]" 2. 1526/(null)(null)(null)-802
  42. 260 INPUT"[215]HICH";X$:IF X$="1"THEN PT=1525:GOTO290
  43. 270 IF X$="2" THEN PT=1526:GOTO290
  44. 280 GOTO260
  45. 290 DIM L$(6),F(6)
  46. 300 FOR I=828 TO 944:READ A: POKE I,A:NEXT
  47. 310 IF PT=1526 THEN FOR I=868 TO 942:READ A:POKE I,A:NEXT
  48. 320 PRINT"[149][147]    [208]RINT [211]HOP [199]RAPHICS [204]ABEL [205]AKER":PRINT
  49. 330 PRINT"[199]RAPHIC [198]ILE [206]AME ($ FOR [196]IRECTORY)
  50. 340 LC[178]0:[133] "  $CMDCMDCMD";G$:[139] G$[178]"$"[167][141]720
  51. 350 [153]"STOPRIGHT$NPUT (null)ABEL (null)EXT.  ASCOR BEST RESULTS,"
  52. 360 [153]"SKIP ALTERNATE LINES. ((null)SE 1,3,5,7 FOR
  53. 370 PRINT"FOUR LINE LABELS AND 2,4,6 FOR THREE
  54. 380 [153]"LINES.)  (null)INES WITH COMMAS OR COLONS
  55. 390 PRINT"MUST BE IN QUOTES.
  56. 400 F$[178]"N"
  57. 410 [129] A[178]0[164]6:F$(A)[178][199](15):L$(A)[178]" ":[153]"(null)EXT FOR LINE "A[170]1;:[133] L$(A)
  58. 420 [153]"VALXPANDED ((null)/(null))     "F$"CMDCMDCMD";:[133] F$
  59. 430 [139]F$[178]"(null)"[176]F$[178]"Y"[167]F$(A)[178][199](14):[137]450
  60. 440 [139] F$[179][177]"N" [175] F$[179][177]"(null)" [167] F$[178]"N":[137]420
  61. 450 [130]
  62. 460 NL$[178]" ":[133]"(null)UMBER OF LABELS   1CMDCMDCMD";NL$:NL[178][197](NL$)
  63. 470 [139] NL[178]0[167]900
  64. 480 [139]LC[167]540
  65. 485 [143] CHECK FOR PS OR COMPANION FILE
  66. 490 [159]8,8,8,G$[170]",P,R":[161]#8,A1$,A2$:[160]8
  67. 500 [139]ST[167]LC[178]0:[153]"     ATN STR$ISK VALRROR HAS OCCURED.":[141]870:[137]490
  68. 510 [139]A1$[178]""[175](A2$[179][177]"X"[176]A2$[179][177]"(null)")[167]530
  69. 520 [153]"    (null)OT A (null)RINT (null)HOP ASCILE!":[141]870:[137]490
  70. 530 [151]829,[198](A2$):LC[178][171]1:[147] G$,8,1
  71. 540 [139] PT[178]1525 [167]630
  72. 545 [143] 1526 PRINT ROUTINE
  73. 550 [139]FO[167]570
  74. 560 FO[178][171]1:[159]4,4,7:[159]5,4,5:[159]6,4,6
  75. 570 [129] E[178]1 [164] NL:[152]6,[199](21):[152]4,SR$
  76. 580 [129] A[178]0[164]6:C[178]21760[170](A[172]48):D[178]C[170]44:NS[178]0:[139]A[178]6 [167]610
  77. 590 [129] B[178]C[164]D[169]8:A$[178]"":[129]F[178]0[164]7:A$[178]A$[170][199]([194](B[170]F)):[130]: [152]5,A$;
  78. 600 [152]4,[163]NS);CC$;SR$;:NS[178]NS[170]1:[130]
  79. 610 [152]4,[163]7);F$(A);L$(A):[130]
  80. 620 [152]6,[199](SC):[152]4:[130]:[137]460
  81. 625 [143] 1525 PRINT ROUTINE
  82. 630 [139]FO[167]650
  83. 640 FO[178][171]1:[159]4,4,7
  84. 650 [129] E[178]1 [164] NL
  85. 660 [129] A[178]0[164]6:C[178]21760[170](A[172]48):D[178]C[170]43:[152]4,[199](8)
  86. 670 [129] B[178]C[164]D:[152]4,[199]([194](B));:[130]
  87. 680 [152]4," "F$(A);L$(A);[199](8);:[130]
  88. 690 [139] FC [167] FC[178]FC[171]1:[152]4,[199](15);[199](10):[137]710
  89. 700 [152]4,[199](10);[199](10);[199](10);[199](15);:FC[178]IC
  90. 710 [130]:[137]460
  91. 720 [159]8,8,0,"$0":N$[178][199](0):X$[178]N$:[153][163]8);"CLR(null)RESS ATNNY (null)EY TO (null)AUSE.
  92. 725 REM DIRECTORY READ ROUTINE
  93. 730 GET#8,A$,A$,A$,A$,A$,A$
  94. 740 GET#8,A$:IF A$=""THEN760
  95. 750 X$=X$+A$:GOTO740
  96. 760 PRINT""TAB(7);X$"[144]"
  97. 770 GETA$:IFA$=""THEN830
  98. 780 PRINT"[156]     [208]RESS [210][197][212][213][210][206] TO [211]TOP [196]IRECTORY
  99. 790 [153]"      (null)RESS ATNNY (null)THER TO LENONTINUESTOP
  100. 800 GETA$:IFA$=""THEN800
  101. 810 IFA$=CHR$(13)GOTO870
  102. 820 FORI=1TO2:PRINT"[145]                                     [145]":NEXT:PRINT"[145][145]"
  103. 830 GET#8,A$,A$:IF A$=""THEN CLOSE 8:GOTO870
  104. 840 GET#8,A$,B$:B$=STR$(ASC(A$+N$)+ASC(B$+N$)*256)
  105. 850 GET#8,A$:IF A$=""THEN PRINTTAB(5)B$:B$="":GOTO770
  106. 860 B$=B$+A$:GOTO850
  107. 870 CLOSE8:PRINT"[199]RAPHIC [198]ILE [206]AME ($ FOR [196]IRECTORY)
  108. 880 [133] "  $CMDCMDCMD";G$:[139] G$[178]"$"[167][141]720:[137]870
  109. 890 [142]
  110. 895 [143] PRINT ANOTHER?
  111. 900 [153]"ATN NEW LABEL ((null)/(null))";
  112. 910 [133]"  (null)CMDCMDCMD";A$:A$[178][200](A$,1):[139]A$[178]"Y"[176]A$[178]"(null)"[167]940
  113. 920 [139] A$[178]"N"[176]A$[178]"(null)"[167]980
  114. 930 [137]910
  115. 940 [153]"(null)AME CHR$RAPHIC ((null)/(null))";
  116. 950 [133]"  (null)CMDCMDCMD";A$:A$[178][200](A$,1):[139]A$[178]"Y"[176]A$[178]"(null)"[167]350
  117. 960 [139] A$[178]"N"[176]A$[178]"(null)"[167]330
  118. 970 [137]950
  119. 980 [139] FO[178]0 [167] [128]
  120. 990 [160]4:[139] PT[178]1526 [167] [152]6,[199](36):[160]5:[160]6:[128]
  121. 995 [143] 1525 GRAPHIC SORTER MACHINE CODE
  122. 1000 [131] 169,88,141,106,3,24,105,1,141,93,3,169,85,141,118
  123. 1010 [131] 3,169,6,141,177,3,169,0,141,105,3,141,117,3,162
  124. 1020 [131] 72,157,13,89,202,208,250,160,7,162,36,169,1,24,94
  125. 1030 [131] 0,88,42,202,202,202,202,202,202,16,243,153,0,85,136
  126. 1040 [131] 16,233,238,105,3,208,3,238,106,3,173,105,3,205,177
  127. 1050 [131] 3,208,17,24,105,36,141,105,3,144,4,238,106,3,24
  128. 1060 [131] 105,6,141,177,3,169,8,24,109,117,3,141,117,3,144
  129. 1070 [131] 187,238,118,3,169,87,205,118,3,208,177,96
  130. 1075 [143] 1526 GRAPHIC SORTER CHANGES
  131. 1080 [131] 42,169,0,24,94
  132. 1090 [131] 0,88,106,202,202,202,202,202,202,16,243,153,0,85,136
  133. 1100 [131] 16,233,238,105,3,208,3,238,106,3,173,105,3,205,177
  134. 1110 [131] 3,208,17,24,105,42,141,105,3,144,4,238,106,3,24
  135. 1120 [131] 105,6,141,177,3,169,8,24,109,117,3,141,117,3,144
  136. 1130 [131] 187,238,118,3,173,118,3,201,87,208
  137.